home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Languages / RLaB 1.18c / rlib / save.r < prev    next >
Encoding:
Text File  |  1994-09-23  |  557 b   |  30 lines  |  [TEXT/RLAB]
  1. //-------------------------------------------------------------------//
  2.  
  3. //  Syntax:    save ( )
  4. //        save ( FILE )
  5.  
  6. //  Description:
  7.  
  8. //  The save function writes the contents of all the workspace
  9. //  variables to a file. The default file, if none is specified is
  10. //  "SAVE".
  11. //
  12.  
  13. //-------------------------------------------------------------------//
  14.  
  15. save = function ( FILE )
  16. {
  17.   if (!exist (FILE))
  18.   {
  19.     FILE = "SAVE";
  20.   }
  21.   for (i in members ($$))
  22.   {
  23.     if (class ($$.[i]) != "function")
  24.     {
  25.       writeb (FILE, $$.[i]);
  26.     }
  27.   }
  28.   close (FILE);
  29. };
  30.